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4-SIRIUS COMPUTERS "GRAF" MODULE- 


INTRODUCTION: 


This document describes the current version of GRAF. GRAF is 
a graphics utilities package implemented to run under CP/M 
1.0/1.3. The utility is designed as an early release version of 
software given out to programmers who must begin to use the vast 
graphics capabilities contained within the 800 by 400 resolution 
Screen, the 16 bit micro, and 128k RAM. For demonstration 
purposes we discuss the use of GRAF from BASIC. The code can, 
however, be used from other languages. The principles involved 
will remain similiar. 


WARNING! 


This version of GRAF is designed to be given to 
users/programmers of the machine to "get you going" with 
regard to high resolution graphics(hires). The GRAF routines WILL 
BE CHANGED as we all learn more about the machine. If you wish to 
incorporate hires into programs that you are developing, look 
at the way we explain the principles of the GRAF routines (done 
from a limited BASIC environment). Then, use the language of your 
choice to write your own graphics routines. Of course, if you 
wish to use the current GRAF package, you may. It is just that 
since it will change, we don't want anyone getting a program out 
that can't grow as the graphics capabilities grow. If your 
application doesn't require anything more than currently is 


available you will be fine using GRAF, _ EUM N. 


SCREEN FORMAT: | | qa” MIS sa 
The screen is presented as 800 dots (across) =by= 400-7 ~= 
dots(down). Currently two formats are used in addressing the 


screen. Others may be possible. 


-TEXT MODE- 


The first mode, called text mode, is the-one-used-by-the—— —- 


operating system to place text on the screen. It consists of 
printing characters on the screen, each character being displayed 
as a 8xl2-dot matrix(8x14 for lower case with decenders). The 
characters are stored in a 10x16 array in memory. Since the 
screen is 800 dots wide, this means that you can display 80 
characters across the screen. Likewise, 25 characters can go down 
the display. Since each character on the screen requires 16 
bits(2 words) to store, the total memory requirement is 
4k(actually 4000 bytes, not 4096). This memory is located in two 
CMOS chips of 2k each, the first word of each being used 
together to store the first character, etc.(16 bits each). An 
individual character consists of 5 attribute bits for inverse 
video, underline, intensity level, and other features, and 11 
bits for the code of the character itself. These ll bits allow 
2048 characters per set, although a normal set might be only 128. 
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-HIGH RESOLUTION MODE- 


This mode is made up of printing (25) 16x16 cells down the screen, 


with 50 strips going across the screen. The data for the first 

strip then uses up RAM 2 bytes at a time going down the screen 
until 25 characters have been stored. The next two bytes in 
memory represent the TOP character of the next strip to the 
right, and again the characters are stored in memory going down 
the strip. The total RAM used is thus: 2 bytes wide per 
character times 16 bits of height per character times 50 
characters wide times 25 characters down; or 40,000 bytes per 


screen. 


HERE ARE THE TWO MODES PICTORALLY: 


HOW TO USE: eden XA At cti dato 


The necessary files on your demo disk are BBOOT.CMD and 
GRAF.CMD.  BBOOT is the program to run - it accomplishes two 
.things: first, the CP/M top of RAM pointer is moved to allow. 
space for the hires screen and up to 4 character sets; second, 
the machine code for the graphics routines. (GRAF.CMD).is loaded. 

Once this is accomplished,BASIC may be loaded. It will 
return slighly over 10k bytes as free - that is all that is left 
for the program in this early version of GRAF. Later versions 
will leave more room for the user's program, but remember that 
the hires screen by itself uses 40000 bytes of memory. The basic 
program must set the memory segment to Hex E4E and give the 
offset for each routine as follows: 


20 DEF SEG=SHE4YÉ f 
25 SETTEXT=0 

30 SETHIRES-3 

35 FILARY=6 

40 HDRAW-9 





45 PDUMP-12 
50 HPRINT=15 
55 CLOAD-18 
60 FILL-21 
65 CCLR=24 
70 CLEN=27 
75 HCLR=30 


The routines are then called from a BASIC program; for 
example: 


100 CALL SETHIRES (more specific examples later). 


In order to directly run a BASIC program that uses hires 
, form a submit file (say START.SUB) using any editor 
with the first line: BBOOT, second line:BASIC86 PROGRAM NAME. 
After booting, simply execute SUBMIT START (the disk cannot be 
write protected). Your disk should have a file on it called 
SUBMIT.CMD . When you say "SUBMIT START" CP/M will go out and 
look for a file called START.SUB and do what it says, line by 
line. The BASIC86 file used should be the one on the disk. Newer 
versions may not be compatable with BBOOT when it moves the CPM 


RAM pointer. 
-AVAILABLE COMMANDS- 


CALL SETHIRES - enables the hires screen (800 dots horizontally 
by 400 dots vertically). It is usually a good idea to use the 
HPRINT call to clear the screen when first enabling hires. 


e CALL. SETTEXT - reverts. back to normal character mode (should be 


—. .——— MAA N mr — —cIAYI—.A t- 


.-£ollowed.by-a.clear screen .to.get rid of the hires garbage left). 


CALL HDRAW(X$,Y$,M$) - Used to draw points and lines on the 
screen, to clear the screen, and to reverse the screen, ie. to 
make every green pixel black(off) and every black pixel green. 
Here are the details of use. - 








v m ae o ——— $us 


x position from 0 to 799 


X$ = 
DAN YAN 7 ^Y$ = y position from 0 to 399 
M$ = mode control............ 


MODE CONTROL BITS: 
76543210 

where if bit number 
is on, you will plot chain lines. 
is on, you will plot ray lines. 
is on, you will fill the screen. 
is on, you will move to a new 
position. 
(3 & 2 not used) 
1 « 0 are for draw control.... 

00 - XOR (toggle pixels) 


DU DJ 








01 
10 
11 


OR (green pixels) 
AND (black pixels) 
XNOR (not used) 


8o M 


MODE CONTROL DESCRIPTION: 


The lower 8 bits in the integer M% control the drawing on 
the screen. Bits 0 & 1 control the way pixels are changed in 
point, line, and fill screen drawing. 


(decimal 16) enables a move to a new position 
designated by the X$ and Y$ integers. All other bits are ignored. 

Bit 5 (decimal 32) enables the fill screen mode. If M$ 
3240 all pixels on the screen will be toggled, green to 
black or black to green. If M% - 32+1 all pixels will be made 
green. Finally for a value of M$ - 3242, all pixels are made 
ie. THE SCREEN IS ERASED. 

Bit 6 (decimal 64) enables ray line drawing. Ray lines are 
drawn from the last end point to the new X$,Y$ position. The last 
end point remains the same. If M$ - 64+0 then XOR lines are 
drawn(The opposite of whatever .pixel color was underneath). If M$ 
64+1 then green lines are drawn and for 64+2 black lines will 


Bit 7 (decimal 128) enables chain line drawing where the 
t for the next line is the end point of the last. This 
"DRAWTO" in most BASIC languages. M$% = 128-40 gives 
XOR lines; 12841 gives green lines; and 128+2 draws with black. 


start poin 
is the same as 


CALL FILARY - This routine is not currently being used and may be 
ignored in the code. ` 


^ "CALL PDUMP - dumps the contents of the hires screen dot for dot ._.. 


to the Paper Tiger IDS 560 printer. This is done through the 
Standard CENTRONICS port. 


CALL HPRINT(X$,Y$,M$) - ORs in the dot pattern for the character 
specified by M% at the absolute screen location X$,Y$; a 16 by 16 





character is assumed with. the upper.left hand corner of the — 


character placed at the X$,Y$ screen location. X coordinates go 
across the screen and y coordinates go down, with.0,0 at the 
-—-upper left corner. The X position for the next character. is 
passed back in X% (the routine allows for non-standard width 


characters - i.e. 


wider or narrower than 10 dots). The width of 


the character is specified in the last row of the dot RAM in 
positions B,C,D and E. If none of those bits are on, a default 
width of 10 is assumed; otherwise the width is the binary number 
indicated plus 1 with the LSB in position B, MSB in position E. 
(For example, a pattern of all four bits on specifies a width of 
16; B=1,C=1,D=0,E=1 specifies a width of 12 dots). 


HERE IS AN EXAMPLE TO PRINT A STRING(A$) AT X,Y: 


10 REM: X,Y ARE COORDINATES OF UPPER LEFT 
20 REM CORNER OF STRING. 
30 REM :CS IS CHARACTER SET NUMBER 





35 AS="THIS IS A SAMPLE STRING." 
40 L=LEN((AS):X$=X:Yi=Y 

50 FOR HH=1 TO L 

60 M%=CS*128+ASC (MIDS (AS,HH,1) 
70 CALL HPRINT(X$,Y$,M$) 

80 NEXT HH 


CALL CLOAD(S$,F$) - Loads a character set from disk file F$ into 
memory starting at the location specified by S$. The locations 

for full character sets (128 characters) are 0,1,2, & 3, where 

the S$ value is calculated as the character set number times 128. 
(Note: the normal character set is in position 0, if another is 
loaded into 0, the normal character set must be restored prior 

to exiting any program). The F$ string (file name) must have a 
length of 11 characters (standard CPM file nomenclature, except 
that the period is not used). All character sets are formed using 
EDOT.BAS which has been included on the demo disk. The 
instructions follow the GRAF explaination. Character sets formed 
with EDOT have been labelled with extents ".CHR" and can be used 
with CLOAD. 

During a program, a given character set can be overwritten 
(using CLOAD) with another. If this is done in character mode, 

all screen print will flip to reflect the new character set. This 
happends because the screen refresh is constantly looking at the 
shape of the character set as stored in RAM. Change the shapes 
stored in RAM and the whole screen changes. If done while in 
HIGHRES, this can be done without affecting any screen portions 
containing the old character set - i.e. you could display print 

on the screen in hires with as many character sets as you had. ` 
This happends because the HIGHRES screen is stored in a.seperate —— 
area of RAM from where the TEXT mode data is. UR ES ee E 


A sample call sequence is shown below: ...- Noc SN! 


100 AS=CHRS (0) 

110 FOR I-1 TO 5: A$=A$ + A$: NEXT I 
120 DN=0:S%=1*128 

130 F$-CHRS (DN) +" FNAME EXT"+AS 

140 CALL CLOAD (S%,F$) - 








= 2 —— a... EP men v  — <` =-— — 


Lines 100 and 110 set up a null string which is part of the 


required FCB string. Line 120 sets variable DN to the drive 
number to load from. A zero value for DN uses the default drive. ` ` 
A one corrisponds to drive A, a two to drive B etc. The S$ value 
selects the load location, in this example "1". Line 130 puts the 
FCB string together.  "FNAME EXT" may be replaced with any 
desired file name, but it must be at least 11 characters long, 
with the extent in the last three characters. If no extent is 
desired these characters should be spaces. Also note that the 
"." delimiter is not present. Line 140 makes the actual call. 
Variable S% is returned with a return code of 0 if the load was 
successful and -1 if the file access was unsuccessful. 


Here is another example: 
10 FS+CHRS (0) 











20 FOR GG=0 TO S:FS=FS+F$:NEXT 

30LsLEN(FILES):FOR I = 1 TO 8-L:S$=S$+" ": 
NEXT: FILES=FILES+S$ 

40 REM THE ABOVE LINE FILLS OUT AN INPUTED FILE 
NAME TO 8 LETTERS 

50 FS=CHRS (0) +FILES+"CHR"+LEFTS (F$ , 24) 

GOREM THIS LINE ADDS THE "CHR" EXTENSICN TO 
BRING THE TOTAL LENGTH OP THE FILE NAME UP 


TO 11 CHARACTERS & SETS UP F$ FOR USE IN THE ROUT 


70 CALL CLOAD(S%,F$) 
80 FS="" 


CALL FILL(X%,Y%,S$) — fills an enclosed concave area with the 
pattern specified in S$ where S$ is composed of four 16 bit 
words. For example, if the first word is made up of alternating 
l's and 0's and the second of alternating 0's and l's, the 
pattern would be every other dot on. The X$ and Y$ need only 
specify any point inside the enclosed area. The interior must be 
entirely off or black. The interior region to be shaded must be 
a convex set. In other words, it can not curve back on itself. 
It may be shaped like a circle.or square, but not a quarter moon 
or a region with something inside it. The parameters passed are 
the X and Y coordinates of any interior point, and a shading 
pattern string. The shading pattern string is 16 bits wide and 4 
bits tall. If all the characters are defined as CHRS (255) the 
shade will turn all interior dots on. A shade with a density 
string of all CHR$(0) will not do anything. The user must insure 
that the area is correctly defined with no holes in the 
boundaries and that the location given is indeed within the 
region or the routine may. malfunction. The following example 
shades with an alternate dot pattern.. 3 


100 SS=CHRS (6H55)+CHRS (&H55) +CHRS(SHAA) +CHRS (SHAA) 
“TIO S$-5$ + S$:rem doublé the `pattern-to fill out S$ to 
. the 4 required 16 bit words. f 
120 CALL FILL(X%,Y%,SS) 


Here is a blowup of the above pattern: 











oe — KK X X KX XX H55,N55 = pixel is off > 
4 BITS x x x Xx X X X X HAA ,HAA x- pixel is on 
HIGH X XXXXXXX ` H55,H55 
XXX XX x XX HAA,HAA 


16 BITS WIDE 


CALL CCLR(X$,Y$,M$) - similar to HPRINT with the exception that 
the character specified by M% is EXCLUSIVE ORed into the screen. 
The x and y position of the 16 by 16 character block (upper left 
hand corner) is passed in the X$ and Y$ variables, with the M$ 
carrying the location of the character to be exclusive-ored. 
This routine can be used to erase a single character. For 
example, assume that the string A$ contains the letter (in 
character set 1) to be erased at location 100,32; the BASIC 





` a 
a 


31 PRINT CHRS (27); "E"; :srem clear text screen od EEUE ice: ote 





program should .ead: 


100 X$2100:Y$232:M$-ASC (AS) +1*128:CALL CCLR (X%,Y%,M%) 


CALL CLEN(M%) - does a lookup of the width of the character 
specified by M% and returns the width in M%. (Note that the 
character width must be contained in the character dot ram as 
described in HPRINT). No screen print is done. This routine tèt 
be used in proportionally justifying and/or spacing on the hires 
screen. 


CALL HCLR(X$,Y$,XX$,YY$) - clears the specified rectangular ef*- 
of the screen with the upper left hand corner specified by Xe 
and the lower right hand corner specified by XX%,YY%. 


Do de a e a e ak e kd ak a RR a de e RR RR RR RR RR ERK RR RR RR GR RRA ARANA CRGO RE 


COMPLETE EXAMPLES: 
The following examples are included on the demo disk FEE 
comes with this manual. As with the other materials being di? = 
out at this time, these graphics demos are not the "ult KT 
examples of programming. Their purpose is to show how to use pm 


early release graphics primitives, ie. to help you to start ui 
high resolution graphics. 


EXAMPLE 1 - BARS.BAS 


10 REM 
15 REM BARS 


20 REM 15-OCT-81 LAST LINE #11110 
30 rem dede de de de de de de de de de de ke de fe de de RR RR RR RARA RARA RE RR RR RR Ok Rd 


32 SI=SHE4E:rem point to start of routines 

33 SETTEXT=O:rem give various offsets 

34 SETHIRES=3 

35 FILARY=6 

36 HDRAW-9 l 

37 PDUMP=12 — RET ks NE A GEE Ee 





te" 





38 HPRINT=15:CLOAD=18:FILL=21:DEF SEG =S1 
39 PRINT CHRS(27);"E"; 


40 rem RA kk kk kk AAA kk kk RAN RARA RA RARA kk RK RR RR RR REK RE dk do o 


400 FILES="BARS":S$=4+0#128:GOSUB 5000:rem FILES is the sams -as 
F$ in the instructions 

500 X=12 

510 FOR I=0 TO 9 

520 X=X+FIX(12* (RND-.35)) 

530 IF X<0 THEN X=FIX(RND*3) 

540 IP X»72 THEN X=72-FIX(RND*3) 

550 CL(I)=X 

560 X=X+FIX(12* (RND-.35)) 

570 IF X<0 THEN X=FIX(RND*3) 

580 IF X>72 THEN X=72-FIX(RND*3) 

590 C2(I)=X 





* 600 
610 
620 NEXT I 


700rem A ká ká k TR RTI KIRKE KR KKK RRR A RARA ARALAR RRA 


e 1000 
1010 
1020 

1030 

1050 

1070 

1080 

1090 

1100 

1110 

1120 

1130 

1140 

1150 

1155 

1160 

1165 

1170 

1175 

1180 

1185 

1190 

1195 

2000 

2005 

2010 

© 2020 
x 2030 
| 2040 
-2060 

2070 

2080 

2090 

2100 

2110 


C3(1)=FIX(C1(1)*(.1+.08* (RND-.5))) 
C4(1)=FIX(C2(1)*(.1+.08* (RND-.5))) 


REM bar graph drawer 

REM by Clint Chaplin 

REM 9/16/81 
B(0)=4+14*128:B(1)=B(0)+1:B(2)=B(0)+2:B(3)=B(0)+3 
GOSUB 8000:rem next few lines print text on screen 
AS="Bar Graph Demo":X$ = 330:Y$ = 0:GOSUB 9000 

GOSUB 10000 
AS-"Snoocorp Profit":X% = 320:Y% = 16:GOSUB 9000 

REM A$="* Fictitious":X$ = 0:Y% = 256:GOSUB 9000 

REM AS=" Figures":X% = 0:Y% = 272:GOSUB 9000 
A$="Estimated Gross":X$ - 250:Y$ = 48:GOSUB 9000 
A$="Actual Gross":X% = 250:Y% = 64:GOSUB 9000 
AS="Estimated Net":X$ = 250:Y$ = 80:GOSUB 9000 
A$="Actual Net":X$ = 250:Y% = 96:GOSUB 9000 

rem kkkkkkkkěkkkkkkkkkkkkkkkkkkkkkkěkkkkkkkkkěkkkkkkkkkkkkkkk 
FOR I=0 TO 3 

C$-B (I) 

FOR J=0 TO 3 

X%=450 

Y$=48+1*16+J*4 

CALL HPRINT(X%,Y%,C%) 

NEXT J 

NEXT I 

FOR 1=0 TO 9 

B=C1(I) 

X% = 200+I*56:Y% = 336 up 
T% = B(0) 

GOSUB 11000 
NEXT I | | 
FOR I=O TO 9. - 77: - M EE Ph 
BzC2 (I) 

X% = 228+1*56:Y% = 336 

T$ = B(1) 

GOSUB 11000 
NEXT I 


for OR A A EE ER ae Sed 


2140 
2150 
tom 2160 
2170 
2180 
2200 
2210 
2220 
2230 
2240 
2250 
3000 
3010 


B=C3 (1) 
X$ = 200+1*56:Y% - 336 . pec 
T$ - B(2) | re NE 
GOSUB 11000 
NEXT I 
FOR I-0 TO 9 
B=C 4 (1) 
X$ - 228+1*56:Y% = 336 
T$ = B(3) 
GOSUB 11000 
NEXT 1 
REM *FRARARERAAAAR RARA RR RR IO AAA A RR RR RR RR RARA RARA RARA 


ASZINKEYS:IF A$="" THEN 3010 


3020 M$=34:CALL HDRAW(X%,Y%,M%):rem clear highres screen 
3040 


CALL SETTEXT:rem back to text mode 





5000 
5001 
5002 
5003 
5005 
5010 
5012 
5015 
5020 
5025 
5030 


8000 


10260 


L=LEN (FILES) :FOR I=1 TO 8-L:S$=S$+" 





REM LOAD CHARACTER SUBROUTINE FILES IS CHARACTER SET NAME 
REM PASS LOAD LOCATION & FILE NAME 

REM © S% IS CHARACTER SET START ADDRESS 

REM THE CHARACTER SET MUST BE IN DRIVE 2 (OR CHANGE #5015) 
FS=CHRS (0) 


FOR GG=0 TO S:FS=FS+F$:NEXT 

"+NEXT:FILES=FILES+S$ 
FS=CHRS (0) +HFILES+"CHR"+LEFTS (F$, 24) 

CALL CLOAD(S%,FS) 

REM IF S%<>0 THEN PRINT"CHR LD PROBLEM" 

RETURN 


6000rem k k k k k k k k k k k k k k k k k k k k k k k k k k n k k k k k kk kk kk kk kkkk Kk kk Kk k k k k 


REM highres screen clear 








8010 CALL SETHIRES 
8020 M$=34:CALL HDRAW(X%,Y%,M%) 
8030 RETURN 
8500 rem KK kk k ok oo ode oe ok ok e d e à kx ke kx à kx e à kn x ke kx kx ke kx kk kk RA RR RR RE RARA RAR 
9000 REM random screen print 
9010 REM AS is string to print 
9020 REM X%,Y% is the position on the screen to print to 
9025 X1$-X$:Y1$-Y$ š 
9030 FOR Al=1 TO LEN (AS) 
9040 C$ = ASC(A$) + 0*128 
9050 A$ = RIGHTS (AS ,LEN (A$) -1) 
9060 CALL HPRINT(X1%,Y1%,C%) 
9070 NEXT Al 
9080 RETURN 
9999 rem d de kk k k k k k k k k kk kk RRA RRA kk k k k k K k k k k k k k k k k k k k k k k k k k k k k k 
10000 REM axis draw and label . 
10010 X%=195:Y%=337:M%=16:CALL HDRAW (X%,Y% ,M&) 
10020 X%=761:Y%=337:M%=129:CALL HDRAW(X$,Y$&,M$) " tek. N 
10030 X%=199:Y%=341:M%=16:CALL HDRAW(X%,Y%,M%) - 
e -10040.X$-199:Y$248:M$-129:CALL HDRAW(X$,Y$,M&)— zá áno 
10050 X%=198:Y%=341:M%=16:CALL HDRAW(X$,Y$,M$) 
10060 X%=198:Y%=48:M%=129:CALL HDRAW(X%,Y%,M%) 
10070 FOR I=0 TO 10 
10080 FOR J=0 TO 3 
10090 X%=198+1*56+J:Y%=337:M%=16:CALL HDRAN (X$, YS MB) 
/ 10100 . Y$-341:M$-129:CALL. HDRAW(X3,Y% , M$) —-——— = 
10110 NEXT J 
= 10120 NEXT I l = 
— .— 10130 FOR I=O TO 9 T) Peer GE. em 
10140 FOR J=0 TO 1 
10150 X$2195:Y$-48432*I4J:M$216:CALL HDRAW(X$,Y$,M$) 
10160 X$-199:M$-129:CALL HDRAW(X3,Y%,M%) 
10170 NEXT J 
10180 NEXT I 
10190 FOR I=0 TO 9 
10200 x%=208+1*56:Y%=352:AS=RIGHTS$ (STR$ (198141) ,4) :GOSUB 9000 
10210 NEXT I 
10220 FOR I=0 TO 9 
10230 X$=170:Y$=330-I#32:AS=RIGHTS (STR$ (I*10),2) :GOSUB 9000 
10240 NEXT I 
10250 A$="Year":X%=460:Y%=368:GOSUB 9000 


AS="Profit,":X%=40:Y%=192:GOSUB 9000 





` 10270 AS="Million $":X%=30:Y%=208:GOSUB 9000 


10280 RETURN 
10999 rem RERAARARRAXAEXERRRERARARARARRATARARRARR ARR RR NI 
11000 REM bar drawer 
11010 REM X$,Y* is position of bar f 
! 11020 REM b is height of bar in increments of four panes i 
11030 REM t$ is type of bar 


11040 Y1%$=Y%+1 
11050 FOR Al=1 TO B 
11055 X1%=X% 
11060 Y1%=Y1%-4 
i 11070 CALL HPRINT(X1$,Y1$,T$) 
11080 X1%=X%+12 - 
11090 CALL HPRINT(X1$,Y1$,T$) 
11100 NEXT Al 
11110 RETURN 


EXAMPLE 2 - KEYS.BAS _ 

This example should be tried first using the copy on the demo 

disk. Keys.bas has many more uses of GRAF than in the first 
example. 


25 PI-3.1416 
27 AS=1.4:REM ASPECT RATIO IS AS 
30 CFLAG=0:CF=0:CN=0:ERF=0 
34 SI=SHE4E:rem set pointer to start of segment m 
35 SETTEXT=0:SETHIRES=3:FILARY=6:REM next 3 lines define er 
routines offset from the start 
© 36 HDRAW=9:PDUMP=12:HPRINT=15 
37 CLOAD=18:FILL=21:CCLR=24:CLEN=27:HCLR=30:DEF SEG = Si 
39 PRINT CHRS (27) ; "E" ; :rem text mode clear screen 
45 CALL SETHIRES:rem setup highres screen 
46 COSUB 700:rem load special character fonts 
54 XP=399:YP=190:L=1 
55 GOSUB 8000:rem setup softkeys 
Setup strings for printing on highres scteen 
56 A$(1)="END":A$ (2) ="PRINT" :A$ (3) -"DRAW CIRCLE" :AS (4) ="CONTINCUIS" AS 
8:A9-AS (K) ° 
5B GOSUB 800:rem setup each key = = = * REEN ad 
59 NEXT:X$-XP:Y$-YP:M$-2114128:CALL HPRINT(X%,Y%,M%) :rem print tha 
llth character of char.set #1 at x%,y% l 
Loop to select key and branch 
60 KS=INKEYS:IP K$="" THEN 60 
61 A-ASC(KS):IF A>48 AND A«58 THEN 2000:rem go to pointer routine? 
62 IF A-100 THEN 10000:rem go to erase soft key routine & loan 
char. set 
63 IF A>247 OR A<242 THEN 60 
64 K=A-240:GOSUB 600:rem reverse video a softkey 
66 ON K GOTO 60,1200,1300,1400,1500,1600,1700 
169 GOTO 60:rem end of main loop 
170 REM CONTROL CHARACTER ROUTINE 
175 AS=INKEYS:IF A$="" THEN 175 
180 IF ASC(A$)=13 THEN Y=Y+LF:X=XP:GOTO 1240 
"© IF AS="B” AND BFLAG=0 THEN BFLAG-1 ELSE BFLAG=0 





10 





IF AS="B" THEN 1240 
IF AS="D" THEN YP=Y%+4:GOTO 1240 
IF A$="U" THEN YP=Y%-4:GOTO 1240 
IF AS="S" THEN CS-1:LF-12:GOTO 1240 
IF AS="M" THEN CS-2:LF-14:GOTO 1240 
IF AS="L" THEN CS=3:LF=16:GOTO 1240 
IF AS="G" THEN X=400-105:Y=0:CS=0:GOSUB 8100:GOTO 1240 
IF AS="R" AND RFLAG-0 THEN RFLAG-1 ELSE RFLAG=0 
G=FRE("") 
GOTO 1240 
REM CLEAR SCREEN (LEAVE SOFT KEYS ON) 
REM | 
X$-0:Y$-0:XX8-2799:YY$-381:CALL HCLR(X$,Y$,XX$,YY$) 
X9=XP:Y%=YP:M%=11+128:CALL HPRINT(X$,Y$,M$) 
GOSUB 600 
G-FRE(""):GOTO 60 
REM ERASE SOFT KEY SUBROUTINE 
X%=XP:Y$=YP:M3=11+128:CALL CCLR(X$,Y$,M$) 
X$20:Y$-379:XM$-799:YM$-399:CALL HCLR(X$&,Y$,XM$,YM$) 
RETURN . 
REM REV VIDEO A SOFT KEY 
REM 
ST=7+(K-1)*114:EN=109+ (K-1) *114 
M$=10+128:Y%=381 
FOR X%=ST TO EN 

X$=X$-1:CALL CCLR(X$&,Y$,MÀ) 
NEXT 
RETURN 
REM LOAD CHARACTER SETS 
FILES="SLOGO":CS=0:GOSUB 5000 : 
FILE$="SMALL" :CS=1:GOSUB 5000 
FILES="LGPROP1" :CS=3:GOSUB 5000 
FILE$="MEDPROP1":CS=2:GOSUB 5000 
G=FRE (*") 
RETURN 
REM WRITE SOFT KEY LEGENDS 


802 REM A$ IS LEGEND K IS KEY NUMBER (1-7) 


1212 








.805.Y2381:XCN-55*(K-1)*114:RM2799:CS21—— mm — EE 


LE-LEN (A$) 
X=XCN- 3*LE 
GOSUB 6000 
G=FRE("") 
RETURN 
REM ERASE SOFT KEY - K IS THE NUMBER OF KEY TO ERASE 
REM 
X$26-(K-1)*114:Y82385:XX$-109* (K-1) *114:YY$=395 
CALL HCLR(X$,Y$,XX$,YY$) 
G-FRE("") 
RETURN 
REM PRINT ROUTINE 
REM 
KS-INKEYS:IF K$="" THEN 1210 
IF ASC(K$)=242 THEN 1290 
X=XP:Y=YP:X%=XP:Y%=YP 
IF K$z"[" THEN 170 
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1220 
1230 
1240 
1242 
1245 
1250 
1260 
1270 
1280 
1282 
1284 
1290 
1300 
1305 
1307 
1310 
1315 
1330 
1332 
1350 
1355 
1360 
1365 
1370 
1375 
1380 
1381 
1382 
1384 
1390 
1392 
1400 
| 1405 
1410 
1420 
1500 
1510 
1520 





AS-KS$ 

GOSUB 6000 

AS=INKEYS:IF A$="" THEN 1240 

IF ASC(A$)=8 THEN 1280 

IF ASC(AS)=242 THEN 1290 

IF A$="[" THEN 170 

X=X%:SX=X%:Y=YP:GOSUB 6000 

PS=AS:GOTO 1240 

X$2SX:M$-ASC(P$)4CS*128:CALL CCLR(X$,Y$,M$) 

X$-SX 

GOTO 1240 

RFLAG=0:BFLAG=0:GOSUB 600:GOTO 60 

REM CIRCLE ROUTINE 

REM 

CN=CN+1:ON CN GOTO 1310,1330,1350 

GOSUB 900:AS="ENTER CENTER" :GOSUB 800:GOSUB 600 

GOTO 60 

XC=XP :YC=YP 

GOSUB 900:A$="ENTER RADIUS":GOSUB 800:GOSUB 600 
KS=INKEYS:IF K$="" THEN 1350 

N=ASC (K$)-48:1F N>9 OR N«1 THEN 1350 

GOSUB 900:A$="R="+STR$ (N) :GOSUB 800:GOSUB 600 

R=N 

KS=INKEYS:IF K$="" THEN 1370 

N=ASC (K$)-48:1F N=195 THEN GOSUB 7500:GOSUB 900:AS=AS (3) 1GOSUB 8( 
IF N>9 OR N<0 THEN 1370 | 

R=10*R+N:IP XC-AS*R«0 OR XC+AS*R>799 OR YC-R<0 OR YC+R>380 THEN | 
GOSUB 900:A$="R="+STR$ (R) :GOSUB 800:GOSUB 600 

GOTO 1370 . 
GOSUB 900:A$="R TOO LARGE!":GOSUB 800:FOR J=1 TO 500:NEXT 
GOTO 1332. 

IF CFLAG-0 THEN CFLAG-1 ELSE CFLAG=O 

IF CPLAG-1 THEN CF=1 eme 

XD=XP:YD=YP 

GOTO 60 

GOSUB 600:X3=XP:Y%=YP:M$=11+128:CALL CCLR (X%,Y%,M$%) 
xp=399:YP=190:X%=XP:Y%=YP:M%=11+128:CALL HPRINT(X%,Y%,M%) 
GOSUB 900 





-1530-A$="x="+STRS (0)+" :-Y-"4STR$(0):GOSUB-800 — n "777 7 


1540 
1600 
1700 
1705 
1707 
1710 
1715 
1720 
1725 
1730 
1735 
1740 
1742 
1745 
2000 
2010 


GOTO 60 
A=5:GOTO 2500 


(REM ERASE RECTANGULAR AREA OF SCREEN 


IF ERF=0 THEN ERF-1 

ON ERF GOTO 1710,1720,1730 

GOSUB 900:AS="UPPER LEFT":GOSUB 800:GOSUB 600 
ERF=ERF+1:GOTO 60 

UX&-XP:UY$-YP:GOSUB 900:A$="LOWER RIGHT" :GOSUB 800:GosuB 600 
ERF=ERF+1:GOTO 60 

LX$=XP:LY$=YP:GOSUB 900 

CALL HCLR(UX$,UY$,LX$,LY$) 

AS=AS (K) :GOSUB 800 

X$-XP:Y$-YP:M$-114128:CALL HPRINT (X%,Y%,M%) 
ERF=0:GOTO 60 

REM POINTER ROUTINE 

REM 
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a ^ 2020 
2025 
2030 
2040 
2050 
2058 


A=A-48:IF A=5 THEN 2500 

IP CFLAG=O AND CF=1 THEN CF=0 
X$=XP:Y%=YP:M$=11+128:CALL CCLR(X$,Y$,M$) 

GOTO 2058 

G=FRE ("") 

ON A GOSUB 2100,2200,2300,2400,2500,2600,2700,2800,2909 


ASZ"X="4STRS (XP-399)+" : Y="+STR$(190-YP) :K=5:GOSUB 909:GOSUB 


X$-XP:Y$-YP:M$-114128:CALL CCLR(X$,Y$,M$) 
GOTO 60 

XP=XP-L:IF XP<0 THEN XP=0 
YP=YP+L:IF YP»381 THEN YP=381 
GOSUB 2950 s 

RETURN 

YP=YP+L:IF YP>381 THEN YP=381 
GOSUB 2950 

RETURN 

XP=XP+L:IF XP>799 THEN XP=799 
YP=YP+L:IF YP>381 THEN YP=381 
GOSUB 2950 

RETURN 

XP-XP-L:IF XP«0 THEN XP=0 
GOSUB 2950 

RETURN 

K=6:GOSUB 600 

IF L-64 THEN FLAG=0 

IF L=1 THEN FLAG=1 

IF FLAG=1 THEN L=L*4 ELSE L=L/4 
A$="STEP="+STR$ (L) :K=6:GOSUB 900:GOSUB 800 
GOTO 60 | 
XP=XP+L:IF XP»799 THEN XP=799 
GOSUB 2950 ` 

RETURN 

XP=XP-L:IF XP<0 THEN XP=0 
YP=YP-L:IF YP<0 THEN YP=0 

GOSUB 2950 

RETURN 

YP=YP-L:1F YP<0 THEN YP=0 


(GOSUS 199012 eon A tacita en Lager g 


RETURN 

XP=XP+L:IF XP»799 THEN XP=799 

YP=YP-L:IF YP<0 THEN YP=0 

GOSUB 2950 

RETURN 

IP CFLAG=0 THEN RETURN 

X=XD:Y=YD:GOSUB 7100:X=XP:Y=YP:GOSUB 7200: XD=X:YD=Y:RETURM 
REM LOAD CHARACTER SUBROUTINE FILE$ IS CHARACTER SET NAME 
REM PASS LOAD LOCATION £ FILE NAME 

REM © S% IS CHARACTER SET START ADDRESS | 

REM THE CHARACTER SET MUST BE IN SELECTED DRIVE (OR CHANGE 
FS=CHRS (0) 

FOR GG=0 TO 5:P$=P$+F$:NEXT 

L=LEN (FILES):FOR I-1 TO 8-L:S$=S$+" "-NEXT:FILES=FILES$+S5 
FS=CHRS (0) +FILES+"CHR"+LEFTS (F$,24) 

S$-CS*128 

CALL CLOAD(S$,F$) 


A 


P 
= 
` 


uA 


OSE AA cas 





° 5025 
5027 

5030 

6000 

Q 6010 
6013 

6015 

6017 

6019 

6021 

| 6023 
6024 

6025 

6027 

6029 

6030 

6032 

6035 

6050 

6051 

6100 

6105 

6110 

6115 

6120 

6125 

6130 

6135 

6145 

e 7000 
S — 7005 
7010 

7100 

7105 

7110 

7200 

|. 7215 

7220 


7500 REM DRAW-CIRCLE EE 


7505 
7508 
sers J5L0 
7515 
7520 
7525 
7530 
7535 
7540 
7550 
8000 
8005 
8010 
8020 
8030 


e 8040 





IF $%<>0 THEN PRINT"CHR LD PROBLEM" 

s$="" 

RETURN 

REM HIRES PRINT SUBROUTINE A$ IS STRING TO BE PRINTt!! 8 X,Y 
LENGTH-LEN (AS) :X8=X: Y8=Y 

IP RFLAG=1 THEN ST=X%:IF ST=0 THEN ST=1 

FOR HH=1 TO LENGTH 

TX=X% 

M=ASC (MIDS (A$,HH,1)) 

IF M=95 AND X%<RM THEN 6030 

IF M=95 AND X%>RM THEN M=45 

M$-M4CS*128 | 

CALL HPRINT (X%,Y%,M8) 

IF BFLAG=1 THEN X%=TX+1:CALL HPRINT(X%,Y%,M%) 

IF X%>RM AND M=32 OR X%>RM AND M-45 THEN X$-LM:Y&-Y 
NEXT 

IF RFLAG=1 THEN EN-X$:M$-94CS*128:FOR X&-ST TO EN:xs- 9 Di: CALL Ce 
RETURN 

IP ASC(MIDS(AS$,HH41,1))232 THEN HH=HH+1 

GOTO 6030 

REM 

REM HIRES CHARACTER ERASE SUBROUTINE 

REM 

LENGTH-LEN (A$) :X%=X:Y$=Y 

FOR HH-1 TO LENGTH 

M$-ASC (MIDS (AS,HH,1))+CS#128 

CALL CCLR(X%,Y%,M%) 

NEXT 

RETURN 

REM HIRES SREEN CLEAR SUBROUTINE 

M$-34:CALL HDRAW(X$,Y$,M$) _ 

RETURN 

REM. HIRES POSITION (NO DRAW) € X,Y 
X$-X:Y£&-Y:M$-16:CALL HDRAW(X%,Y%,M%) 

RETURN 

REM HIRES DRAW FROM PREVIOUS X,Y TO CURRENT X,Y 
X$-X:Y$-Y:M$-129:CALL HDRAW(X$,Y$,M&) 

RETURN 


gri IP HAS eo 


ji 





REM 
TH=PI/30 l M 
IF XC+AS*R>799 OR XC-AS*R<0 THEN RETURN ra 
IP YC+R>380 OR YC-R<0 THEN RETURN 
X=XC+AS*R: Y=YC:GOSUB 7100 
FOR TT=0 TO 2*PI+TH STEP TH 
X=XC+AS*R*COS (TT) : Y=YC+R*SIN (TT) 
GOSUB 7200 
NEXT 
RETURN 
REM ENTER SOFT KEY OUTLINE 
X$-2:Y$-383 
FOR IIs1 TO 7 
M%=1*128:CALL HPRINT (X$,Y$,M$) 
FOR JJ=1 TO 5 
M%=1+1*128:CALL HPRINT (X%,Y%,M%) 


tn de 


X 


b: 


“Tan 
gen 
* 





: 8050 
8060 
8065 
8070 

o 8075 
8080 
8100 
8102 
8104 
8106 
8108 
8110 
8112 
8114 
8116 
8118 
8120 
8122 
8124 
8126 
8128 
8130 
8132 
8134 
8135 
8136 


NEXT JJ 
M$=2+1#128:CALL HPRINT(X$,Y$,M$) 
X%=X%+2 
NEXT II 
G=FRE("") koze 
RETURN 
REM 
REM LOGO SUBROUTINE 
REM 
X%=XP:Y3=YP 
FOR I$-0 TO 20 
M%=1%+C5*128. 
CALL HPRINT(X%,Y%,M$) 
NEXT 
X%=XP:Y%$=YP+16 
FOR I$-21 TO 41 
M$=1%+05*128 
CALL HPRINT(X3,Y%,M3) 
NEXT 
X$-XP:Y$-YP-32 
FOR I$-42 TO 63 
MS=I$+CS#+128 
CALL HPRINT (X%,Y%,Mš) 
NEXT 
X=X%:Y=Y% 
RETURN 


10000 GOSUB 500:FILES="NORMALI":CS=0:GOSUB 5000 
10005 CALL SETTEXT:PRINT CHR$(27);"E"; 
10010 END 


INSTRUCTIONS FOR USING EDOT.CMD 


Since EDOT is a command file, it is run by simply going to 


on -the system level and saying "EDOT". The program allows you to 

_ _  —edit—-character-sets from disk. The-disk- format is four characters- 
to a sector, binary image. Since only characters are stored in 
the file, and no partial sectors are used, characters reads and 
writes must be in multiples of four characters. | 


The editor has two bacic input states. The first encountered 


is the character number input state. Here you have a choice of 
the following options (upper or lower case may be used). 


R - READ A FILE: Prompts for a file name and the character 


location. If just a carrage return is entered for a file 
name, then the last used file name or the file name 
used at program invocation is used. 


WRITE A FILE: Prompts for file name, size, and starting 
location. 


"CONTROL C”: Exits to CPM. 
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[NUMBER] : Entering a decimal number displays that 
character and enters the edit state. 


dee te he RI RÁ RERER AA RENE RR R RR RR RA RR RR RR RR RR RR AR RR K 


-EDITING OPTIONS- 
A - Advance to next character number. 
B - Go back one character. 
C - Clear character dots. 


M- Move current. character to a second character location. User 
is prompted for the new location. 


N - Return to character number input state. 


R - RESET MODE - Reset to 0 any dot encountered through cursor 
movement. 


S - SET MODE - Opposite of reset mode. 


P - POSITION MODE - Allows movement of cursor without effecting 
dots. Position mode is the default mode for the edit state. 


E - Same as P. 


T- TOGGLE MODE - Flips any location encountered with cursor 
movement. 


-1 — Move cursor down and left E Ru. ipai 


2 — Move cursor down. 


3 - Move cursor down and right. 





— —4— Move-cursor left — ENE Ra a o qua RES 


- Toggle cursor location (does not change mode). cx a 
- Move cursor right. 
Move cursor up and left. 


- Move cursor up. 


w o i a tn 
I 


— Move cursor right. 


AEKKRKKRKKRKKRKRKKRKRKKKKKKRKRKRKKKKKKKRKKKKRKKKKKRKRRKKKKRKKAKRKKKAKKKKOKOK 


NOTES: 


12/18/81 - Starting number must be divisable by 4 (4 characters 
per sector). 


12/18/81 - To save, N then W 
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